home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / flitepln.arc / FLITPLN2.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-07-24  |  35.3 KB  |  753 lines
  1. 1  '8/6/83rev8/30/84FLITPLN6
  2. 2  IF RETURN.FLG=1 THEN 6102'rev6 3/26/85
  3. 3  KEY OFF:DEFSNG V'D.GULLICKSON219custerLANDER,WY82520
  4. 4  ON ERROR GOTO 20000
  5. 8  DIM VOR$(20),D(20),T(20),CT(20),F(20),TF(20),RT(20),AIR$(20),UL(15)
  6. 9  DIM AIRCRAFT$(15),VSO(15),VSI(15),VNO(15),VNE(15),VLOF(15),VX(15),VY(15),VLO(15),VA$(15),VAPC$(15),VGLD$(15),COMENT1$(15),VFE$(15),COMENT2$(15),GW(15),EW(15)
  7. 10  DIM GAL1(15),GAL2(15),SE1(15),SE2(15),COMENT3$(15),COMENT4$(15),TYPE$(15),FLWT1(15),FLWT2(15),PB1(15),PB2(15),PERSE1(15),PERSE2(15)
  8. 12  OPEN "FLTDATA" FOR INPUT AS #1
  9. 13  INPUT #1,ACID$,ACTYPE$,FUELHR$,FUELMIN$,PILOTNAM$,PILOTADD$,PILOTADDTEL$,ACCOLOR$
  10. 14  CLOSE
  11. 15  COLOR 7,0,1
  12. 30  OPEN "PLANE.DAT" FOR INPUT AS #2
  13. 33  FOR T = 1 TO 15
  14. 34   INPUT #2,AIRCRAFT$(T),VSO(T),VSI(T),VNO(T),VNE(T),VLOF(T),VX(T),VY(T),VLO(T),VA$(T),VAPC$(T),VGLD$(T),COMENT1$(T),VFE$(T),COMENT2$(T),GW(T),EW(T),GAL1(T),GAL2(T)
  15. 35   INPUT #2,SE1(T),SE2(T),COMENT3$(T),COMENT4$(T),TYPE$(T)
  16. 40  NEXT
  17. 42  CLOSE
  18. 50  ON ERROR GOTO 0
  19. 55  B1$="   LOCATION     DISTANCE     TIME EST   TIME ACTUAL   FUEL(##gph)"
  20. 56  B2$="                 leg/        leg/        leg/          leg/"
  21. 58  B3$="                    /to-go      /cuml         /cuml       /cuml "
  22. 59  B6$="   \         \       ####                      \         \"
  23. 60  B4$="         \      \###         ##          \   \         ##.#"
  24. 61  B5$="   \         \       ####       ##:##          \   \        ##.#"
  25. 67  GOTO 7000
  26. 69  'menu
  27. 70  COLOR 0,9,1:CLS
  28. 71  PRINT "                                                               __";:COLOR 7:PRINT CHR$(249);:COLOR 0:PRINT "__"
  29. 72  PRINT "                                                                 |@ "
  30. 73  PRINT "                                                    ";:COLOR 26:PRINT CHR$(249);:COLOR 0:PRINT "==========(_O_)==========";:COLOR 28:PRINT CHR$(249):COLOR 0
  31. 74  PRINT "                                                                          ":COLOR 7
  32. 91  QT$=CHR$(177):IF UUU$<>"1"THEN 5999 ELSE 92
  33. 92  COLOR 11:PRINT "                    ";QT$QT$QT$QT$QT$;:COLOR 0:PRINT "                                            ":COLOR 11
  34. 93  PRINT "                    "QT$" "QT$" "QT$" AIN    FLIGHT PLAN PROGRAM"
  35. 94  PRINT "                    "QT$" "QT$" "QT$" ENU";:COLOR 7:PRINT "     ================="
  36. 100  PRINT"             ----------------------------------------------------":PRINT
  37. 101  LOCATE 4,64:COLOR 2:PRINT " ^ ^ ":COLOR 7
  38. 110  LOCATE 10,20:PRINT "<1> NEW - add new flight route "
  39. 120  PRINT TAB(20);"<2> SAVE - on disc new flight route"
  40. 130  PRINT TAB(20);"<3> LOAD - previously saved flight route"
  41. 140  PRINT TAB(20);"<4> ";:COLOR 12:PRINT "UTILITIES                           ":COLOR 7
  42. 150  LOCATE 4,64:COLOR 2:PRINT "\   /":COLOR 7
  43. 151  LOCATE 5,64:COLOR 6:PRINT "'' ``":COLOR 7
  44. 155  LOCATE 14,20:PRINT "<5> AIRCRAFT FLIGHT DATA - review & print"
  45. 156  PRINT TAB(20);"<6> FLIGHT LOG - review & print"
  46. 157  PRINT TAB(20);"<7> FAA FLIGHT PLAN - review & print"
  47. 158  IF RETURN.FLG=1 THEN 161
  48. 159  PRINT TAB(20);"<8> ";:COLOR 2:PRINT "RETURN FLIGHT ";:COLOR 7:PRINT "(reverses order) - review & print"
  49. 160  GOTO 169
  50. 161  COLOR 13:PRINT TAB(20);"****  RETURN FLIGHT OPTION ON  ****"
  51. 169  PRINT
  52. 170  COLOR 11:PRINT TAB(22);"ENTER SELECTION - 1 TO 9";:COLOR 7:PRINT "    EXIT = <9>":COLOR 6
  53. 180  PRINT
  54. 190  PRINT TAB(14);"Use knots and nautical miles or MPH and statute miles":COLOR 7
  55. 195  LOCATE 4,64:COLOR 0:PRINT "/   \":COLOR 7
  56. 196  LOCATE 5,63:COLOR 0:PRINT "''   ``":COLOR 7
  57. 199  'decisRtes
  58. 200  A = VAL(INKEY$)
  59. 201  COLOR 14:LOCATE 3,74:PRINT CHR$(236):COLOR 7
  60. 210  IF A=0 OR A>9 GOTO 200 ELSE ON A GOTO 1000,5000,6000,8000,13650,3000,10900,500,400
  61. 400  V$=CHR$(205):COLOR 4,0,1
  62. 405  LOCATE 12,30:PRINT CHR$(201)V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$CHR$(187)
  63. 410  LOCATE 13,30:PRINT CHR$(186)" ";:COLOR 3:PRINT"  EXIT to DOS (Y/N)? ";:COLOR 4:PRINT "    ";CHR$(186)
  64. 412  LOCATE 14,30:PRINT CHR$(200)V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$CHR$(188)
  65. 414  LOCATE 13,53:INPUT "",QW$:IF QW$="y" OR QW$="Y" THEN 420 ELSE COLOR 7,1,1:GOTO 110
  66. 420  CLS:SYSTEM:END
  67. 500  'revRte'IF RETURN.FLG=1 THEN 70
  68. 501  V$=CHR$(205):COLOR 4,0,1
  69. 509  LOCATE 8,5:PRINT CHR$(201)V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$CHR$(187)
  70. 510  LOCATE 9,5:PRINT CHR$(186);"   FAA FLIGHT PLN for present trip (if one is desired) must be ";CHR$(186)
  71. 511  LOCATE 10,5:PRINT CHR$(186);"   printed before proceeding with RETURN FLIGHT option!        ";CHR$(186)
  72. 520  LOCATE 11,5:PRINT CHR$(186);:COLOR 11:PRINT "  --DO YOU WISH TO CONTINUE RETURN FLIGHT OPTION? (Y/N) [Y]    ";:COLOR 4:PRINT CHR$(186)
  73. 521  LOCATE 12,5:PRINT CHR$(200)V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$V$CHR$(188):LOCATE 11,66:INPUT "",Z$
  74. 530  IF Z$="Y" OR Z$="y" OR Z$="" THEN GOTO 562 ELSE 70
  75. 562  OPEN "TEMP" FOR OUTPUT AS #1
  76. 564  DD$=VOR$(NN)
  77. 566  WRITE #1,DD$ 'PRINT DD$
  78. 568  WRITE #1,NN
  79. 570  FOR N=NN TO 1 STEP -1
  80. 572   WRITE #1,AIR$(N):N=N-1:IF N=0 THEN 580 ELSE 574
  81. 574   WRITE #1,VOR$(N)
  82. 576   N=N+1
  83. 578   GOTO 584
  84. 580   N=N+1
  85. 582   WRITE #1,D$
  86. 584   WRITE #1,D(N)
  87. 586   IF N=0 THEN 590
  88. 588  NEXT
  89. 590  CLOSE
  90. 596  OPEN "TEMP" FOR INPUT AS #1
  91. 598  INPUT #1,D$
  92. 600  INPUT #1,NN
  93. 604  FOR N=1 TO NN
  94. 606   INPUT #1,AIR$(N),VOR$(N),D(N)
  95. 610   IF N=NN THEN 614
  96. 612  NEXT
  97. 614  CLOSE
  98. 618  RETURN.FLG=1
  99. 619  LOCATE 9,5:PRINT CHR$(186);"                                                               ";CHR$(186)
  100. 620  LOCATE 10,5:PRINT CHR$(186);"                                                               ";CHR$(186)
  101. 621  LOCATE 11,5:PRINT CHR$(186);"                                                               ";CHR$(186)
  102. 630  COLOR 12:LOCATE 9,9:PRINT "           RETURN ROUTE of ";FILENAME$;:COLOR 7:PRINT "       "
  103. 660  GOTO 1
  104. 1000  CLS:COLOR 10:LOCATE 2,30:PRINT "CREATE NEW FLIGHT ROUTE":COLOR 7:LOCATE 5,5: INPUT "ENTER EST. GROUND SPEED      ", GS
  105. 1005  RETURN.FLG=0
  106. 1030  LOCATE 6,5: INPUT "ENTER FUEL BURN (gal/hr)     ", GALPERHR
  107. 1040  LOCATE 7,5: INPUT "DEPARTURE AIRPORT            ", D$
  108. 1050  LOCATE 8,8: COLOR 10: INPUT "Is data correct Y/N ? [Y]", Z$ :COLOR 6:IF Z$="Y" OR Z$="y" OR Z$="" GOTO 2000 ELSE GOTO 1000
  109. 1585  LPRINT USING "                                          \                           \";COMENT2$(T)
  110. 2000  GOSUB 9000
  111. 2005  N = 0:NN=0
  112. 2006  GOTO 2010
  113. 2007  PRINT "Re-enter last checkpoint data ---"
  114. 2010  N = N + 1
  115. 2011  PRINT
  116. 2012  INPUT "      AIRPORT OR VOR CHECKPOINT (location)     ", VOR$(N)
  117. 2013  INPUT "      AIRWAY TO THIS CHECKPOINT (ie V128)      ", AIR$(N)
  118. 2014  INPUT "      DISTANCE TO CHECKPOINT                   ", D(N)
  119. 2054  COLOR 10: INPUT "       Is data correct Y/N ? [Y]", Z$ :COLOR 6: IF Z$="Y" OR Z$="y" OR Z$="" GOTO 2055 ELSE N = N-1 : GOTO 2007
  120. 2055  COLOR 12: INPUT "       Do you want another checkpoint Y/N ? [Y]", Z$ :COLOR 6: IF Z$ = "Y" OR Z$="y" OR Z$="" GOTO 2010 ELSE GOTO 2075
  121. 2070  '
  122. 2075  NN=N
  123. 2076  FOR N = 1 TO NN
  124. 2077   T(N) =(60/GS)*D(N) : T(N) = T(N) + 0.5 : T(N) = INT(T(N))
  125. 2079   CT(N) = CT(N-1) + T(N)
  126. 2081   F(N) = (T(N)/60)*GALPERHR : TF(N) = TF(N-1) + F(N)
  127. 2083   RT = RT + D(N)
  128. 2084   IF N=NN THEN 2090
  129. 2085  NEXT
  130. 2090  GOTO 70
  131. 2099  'displayRoute
  132. 3000  CLS
  133. 3004  PRINT "                                                       GS = ";GS
  134. 3005  PRINT USING B1$;GALPERHR
  135. 3010  PRINT "------------------------------------------------------------------"
  136. 3020  PRINT B2$
  137. 3030  PRINT B3$
  138. 3038  RTT=RT
  139. 3040  FOR N = 1 TO NN
  140. 3050   RT(N) = RTT - D(N)
  141. 3060   RTT = RT(N)
  142. 3065   IF N=NN THEN 3080
  143. 3070  NEXT
  144. 3080  PRINT "------------------------------------------------------------------"
  145. 3090  PRINT USING B6$; D$,RT,"_____t'off"
  146. 3095  PRINT "------------------------------------------------------------------"
  147. 3100  FOR N = 1 TO NN
  148. 3110   PRINT USING B4$; AIR$(N),D(N),T(N),"_____",F(N)
  149. 3120   PRINT USING B5$; VOR$(N),RT(N),CT(N)\60,CT(N) MOD 60,"_____",TF(N)
  150. 3122  PRINT "------------------------------------------------------------------"
  151. 3124   IF N=NN THEN 3140
  152. 3130  NEXT
  153. 3135  '
  154. 3140  COLOR 10:INPUT "  DO YOU WANT A HARD COPY ? (Y/N) [Y]",HHC$
  155. 3150  IF HHC$="Y" OR HHC$="y" OR HHC$="" THEN 3160 ELSE 70
  156. 3160  CLS:LOCATE 5,5:INPUT "  DO YOU WANT COMPRESSED PRINTING (clip board size) (Y/N) [Y]",Z$:COLOR 7
  157. 3170  IF Z$="Y" OR Z$="y" OR Z$="" THEN GOTO 4005 ELSE 4003
  158. 4000  'PrintHardCopyRoute
  159. 4003  ON ERROR GOTO 4500:LPRINT CHR$(18) CHR$(27) CHR$(50)'nl size print
  160. 4004  GOTO 4009
  161. 4005  ON ERROR GOTO 4500:LPRINT CHR$(15) CHR$(27) CHR$(48)'cmp print
  162. 4009  LPRINT : ON ERROR GOTO 0
  163. 4010  CLS: LOCATE 10,12: PRINT "PRINTING HARD COPY......"
  164. 4012  LPRINT"  Aircraft #:"
  165. 4015  LOCATE 23,15:PRINT "               "
  166. 4020  LPRINT
  167. 4030  LPRINT"  CLEARANCE:"
  168. 4040  LPRINT
  169. 4050  LPRINT"  Cleared via-"
  170. 4060  LPRINT
  171. 4070  LPRINT"  After T.O.^-"
  172. 4080  LPRINT
  173. 4090  LPRINT"  Dept freq-"
  174. 4100  LPRINT
  175. 4110  LPRINT"  S.Q.-"
  176. 4120  LPRINT:LPRINT:LPRINT:LPRINT
  177. 4125  LPRINT "                                        (EST GROUNDSPEED = ";GS;")"
  178. 4130  LPRINT USING B1$;GALPERHR
  179. 4140  LPRINT "------------------------------------------------------------------
  180. 4150  LPRINT B2$
  181. 4160  LPRINT B3$
  182. 4170  RTT=RT
  183. 4180  FOR N = 1 TO NN
  184. 4190   RT(N) = RTT - D(N)
  185. 4200   RTT = RT(N)
  186. 4205   IF N=NN THEN 4220
  187. 4210  NEXT
  188. 4220  LPRINT "------------------------------------------------------------------
  189. 4230  LPRINT USING B6$; D$,RT,"_____t'off"
  190. 4240  LPRINT "------------------------------------------------------------------
  191. 4250  FOR N = 1 TO NN
  192. 4260   LPRINT USING B4$; AIR$(N),D(N),T(N),"_____",F(N)
  193. 4270   LPRINT USING B5$; VOR$(N),RT(N),CT(N)\60,CT(N) MOD 60,"_____",TF(N)
  194. 4280  LPRINT "------------------------------------------------------------------
  195. 4288   IF N=NN THEN 4297
  196. 4290  NEXT
  197. 4295  '
  198. 4297  LPRINT "                                                      arrival time
  199. 4298  LPRINT "                                               =====             "
  200. 4300  LPRINT CHR$(12)
  201. 4302  LPRINT CHR$(18) CHR$(27) CHR$(50)     'normal size print
  202. 4310  GOTO 70
  203. 4499  'ErrorHandlingRoutine
  204. 4500  IF ERR=25 OR ERR=24 OR ERR=27 THEN LOCATE 23,15:COLOR 28:BEEP:PRINT "CHECK PRINTER":COLOR 7:RESUME
  205. 4510  ON ERROR GOTO 0
  206. 4600  CLS:PRINT :PRINT :INPUT "    DO YOU WANT COMPRESSED PRINTING (Y/N) [Y]",Z$
  207. 4610  IF Z$="Y" OR Z$="y" OR Z$="" THEN GOTO 4005 ELSE 4003
  208. 4999  'SaveOnDisk
  209. 5000  CLS
  210. 5002  ON ERROR GOTO 5600
  211. 5005  COLOR 2:LOCATE 3,28 : PRINT "SAVE FLIGHT ROUTE ON DISK"
  212. 5010  LOCATE 5,5 :COLOR 11: FILES "*.X" : COLOR 7
  213. 5015  BEEP: PRINT: COLOR 5 : PRINT "              CAUTION ! FILE BY SAME NAME WILL BE OVERWRITTEN" : COLOR 7
  214. 5020  PRINT :PRINT "     ENTER FILENAME ";:COLOR 11:INPUT "  ",FILENAME$:COLOR 7
  215. 5021  ON ERROR GOTO 0
  216. 5023  IF FILENAME$ = "" THEN GOTO 70
  217. 5026  IF RIGHT$(FILENAME$,2)=".X" OR RIGHT$(FILENAME$,2)=".x" THEN 5030 ELSE 5500
  218. 5030  OPEN FILENAME$ FOR OUTPUT AS #1
  219. 5040  WRITE #1,D$
  220. 5042  PRINT D$
  221. 5045  WRITE #1,NN
  222. 5047  PRINT NN
  223. 5050  FOR N = 1 TO N
  224. 5055   IF D(N) = 0 GOTO 5080'PreventSavingLongRteOverwrittenbyshort
  225. 5060   WRITE #1,AIR$(N),VOR$(N),D(N)
  226. 5065   PRINT AIR$(N);" ";VOR$(N);D(N)
  227. 5066   IF N=NN THEN 5080
  228. 5070  NEXT
  229. 5080  CLOSE
  230. 5090  COLOR 12: PRINT "         MENU  -- press any key....": COLOR 7
  231. 5100  Z$ = INKEY$
  232. 5120  IF Z$ = "" GOTO 6510
  233. 5130  CLS : GOTO 70
  234. 5499  'ErrorHandlingRoutine
  235. 5500  BEEP:PRINT:PRINT:COLOR 2:PRINT"         ***  FILE NAMES MUST END IN ``";:COLOR 11:PRINT".X";:COLOR 2:PRINT" '' i.e. ``";:COLOR 11:PRINT "FAR-SLC.X ";:COLOR 2:PRINT "'' ***":COLOR 7:FOR B=1 TO 6000:NEXT : GOTO 5000
  236. 5600  CLS:PRINT :PRINT :PRINT "              THERE ARE NO FLIGHT PLAN FILES PRESENTLY DEFINED":COLOR 7:FOR B=1 TO 4000:NEXT:RESUME 5020
  237. 5610  ON ERROR GOTO 0
  238. 5999  'KILL "FLITPLN?.*:DELETE 1-22000 'LodFlitRteFromDisk
  239. 6000  CLS
  240. 6005  GOSUB 9000
  241. 6006  ON ERROR GOTO 6600
  242. 6007  COLOR 2:LOCATE 1,24 : PRINT "LOAD PREVIOUSLY STORED FLIGHT ROUTE"
  243. 6010  LOCATE 3,5 :COLOR 11: FILES "*.X" : COLOR 7
  244. 6025  ON ERROR GOTO 6700
  245. 6030  PRINT :PRINT "     ENTER STORED FLIGHT ROUTE:";:COLOR 11:INPUT "   ", FILENAME$:COLOR 7
  246. 6035  IF FILENAME$="" THEN GOTO 70
  247. 6040  LOCATE 22,1:PRINT "                                                                              ":OPEN FILENAME$ FOR INPUT AS #1
  248. 6045  ON ERROR GOTO 0
  249. 6046  RETURN.FLG=0:CLS:PRINT :PRINT :PRINT:PRINT "                   SELECTED FLIGHT ROUTE IS:  ";:COLOR 11:PRINT FILENAME$:COLOR 7:PRINT
  250. 6050  INPUT #1,D$
  251. 6056  INPUT #1,NN
  252. 6060  FOR N = 1 TO NN
  253. 6065   IF EOF(1) THEN PRINT "WOW":GOTO 6100
  254. 6070   INPUT #1,AIR$(N),VOR$(N),D(N)
  255. 6077   IF N=NN THEN 6100
  256. 6090  NEXT
  257. 6100  CLOSE
  258. 6102  'entryForRETURN.RT4inReversOrder
  259. 6103  IF RETURN.FLG=1 THEN RT=0
  260. 6105  COLOR 11
  261. 6110  LOCATE 10,6:INPUT "              ENTER EST. GROUNDSPEED     ",GS
  262. 6120  LOCATE 11,6:INPUT "              ENTER FUEL BURN (gal/hr)   ",GALPERHR:COLOR 7
  263. 6140  FOR N = 1 TO NN
  264. 6200   T(N) =(60/GS)*D(N) : T(N) = T(N) + 0.5 : T(N) = INT(T(N))
  265. 6210   CT(N) = CT(N-1) + T(N)
  266. 6220   F(N) = (T(N)/60)*GALPERHR : TF(N) = TF(N-1) + F(N)
  267. 6230   RT = RT + D(N)
  268. 6235   IF N=NN THEN 6500
  269. 6250  NEXT
  270. 6500  CLS:GOTO 70
  271. 6510  Z$=INKEY$
  272. 6520  IF Z$ = "" GOTO 6510
  273. 6530  CLS : GOTO 70
  274. 6599  'ErrorTrappingRoutine
  275. 6600  CLS:PRINT :PRINT :PRINT "              THERE ARE NO FLIGHT PLAN FILES PRESENTLY DEFINED":COLOR 7:FOR B=1 TO 4000:NEXT:RESUME 70
  276. 6698  '
  277. 6700  LOCATE 22,1:COLOR 10:CLOSE:BEEP:PRINT "               ****  No file by that name.  Re-enter.  ****":PRINT "                      - OR press enter key to exit - ":COLOR 6:RESUME 6007
  278. 6710  ON ERROR GOTO 0
  279. 7000  TT$=CHR$(205)
  280. 7001  KEY 1," UTIL ":KEY 2,"":KEY 3,"":KEY 4,"":KEY 5,"":KEY 6,"":KEY 7,"":KEY 8,"":KEY 9,"":KEY 10,""
  281. 7005  COLOR 3,0,1:CLS
  282. 7006  COLOR 0,7,1
  283. 7010  LOCATE 3,25:PRINT CHR$(201);TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$CHR$(187)
  284. 7015  UU$=CHR$(177)
  285. 7020  LOCATE 4,25:PRINT CHR$(186);:COLOR 0:PRINT "  ";UU$UU$UU$;" ";UU$UU$UU$;"      ";UU$UU$UU$;" ";UU$;"   ";UU$;" ";UU$;"  ";:COLOR 0:PRINT CHR$(186)
  286. 7030  LOCATE 5,25:PRINT CHR$(186);:COLOR 0:PRINT "  ";UU$;" ";UU$;" ";UU$;"        ";UU$;"   ";UU$;"   ";UU$;" ";UU$;"  ";:COLOR 0:PRINT CHR$(186)
  287. 7040  LOCATE 6,25:PRINT CHR$(186);:COLOR 0:PRINT "  ";UU$UU$UU$;" ";UU$;"   ";CHR$(176)CHR$(176)CHR$(176);"  ";UU$UU$;"  ";UU$;"   ";UU$;" ";UU$;"  ";:COLOR 0:PRINT CHR$(186):UUU$="1"
  288. 7050  LOCATE 7,25:PRINT CHR$(186);:COLOR 0:PRINT "  ";UU$;"   ";UU$;"        ";UU$;"   ";UU$;"    ";UU$;"   ";:COLOR 0:PRINT CHR$(186)
  289. 7060  LOCATE 8,25:PRINT CHR$(186);:COLOR 0:PRINT "  ";UU$;"   ";UU$UU$UU$;"      ";UU$;"   ";UU$UU$UU$;"  ";UU$;"   ";:COLOR 0:PRINT CHR$(186)
  290. 7070  LOCATE 9,25:PRINT CHR$(200);TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$CHR$(188);:COLOR 4,0:PRINT " ";:COLOR 4:PRINT CHR$(3)
  291. 7075  COLOR 3,0,1
  292. 7080  LOCATE 10,20:PRINT "Copyright (c) -1984,85- by D.A. Gullickson"
  293. 7085  LOCATE 12,31:COLOR 11:PRINT "PC-FLY ``FLITEPLN''":COLOR 3
  294. 7090  LOCATE 11,35:PRINT "Version 2.6"
  295. 7130  LOCATE 14,17:PRINT "User-supported software.  $20 Contribution gives  "
  296. 7140  LOCATE 15,17:PRINT "user enhanced, completed version & notification of"
  297. 7141  ''LOCATE 14,17:PRINT "     Sporty's Pilot Shop Demonstration Disk "
  298. 7142  LOCATE 13,28:COLOR 13:PRINT "(Non-Registered Version)":COLOR 3
  299. 7143  LOCATE 16,17:PRINT "  Copyright forbids unauthorized distribution "
  300. 7145  LOCATE 16,17:PRINT "future updates & programs.  Copyright forbids "
  301. 7146  LOCATE 17,17:PRINT "distribution in an altered form.  Otherwise share."
  302. 7148  LOCATE 18,30:PRINT "MICROSTAT      "
  303. 7149  LOCATE 19,30:PRINT "219 Custer Street     "
  304. 7150  LOCATE 20,30:PRINT "Lander, Wyoming  82520"
  305. 7180  '
  306. 7190  PRINT
  307. 7200  LOCATE 22,1:COLOR 11:PRINT "                          Press any key to continue ...":COLOR 3
  308. 7230  X$=INKEY$: IF X$=""THEN 7230
  309. 7240  GOTO 70
  310. 7300  CLS:PRINT:COLOR 10:PRINT "                     PC-FLY ``FLITEPLN '' DOCUMENTATION":COLOR 7
  311. 7310  PRINT
  312. 7320  PRINT "PC-Fly ``FLITEPLN '' is written to be practical & useful for the busy pilot and"
  313. 7330  PRINT "only requires essential information all pilots use when planning a flight.     "
  314. 7350  PRINT
  315. 7352  PRINT "AIRCRAFT FLIGHT DATA -- permits saving pertinent information on the various    "
  316. 7353  PRINT "airplanes used making the information readily available for each flight.       "
  317. 7354  PRINT
  318. 7360  PRINT "User enters:  1)  estimated groundspeed"
  319. 7362  PRINT "              2)  fuel/hour"
  320. 7363  PRINT "              3)  departure airport, checkpoints, and leg distances are ONLY"
  321. 7364  PRINT "                  entered INITIALLY, then saved for future use"
  322. 7365  PRINT
  323. 7370  PRINT "FLIGHT LOG  ---   then  calculates DISTANCE:   total & to-go, TIME:  leg,      "
  324. 7380  PRINT "cumulative & total in hr. & min., FUEL:  per leg, cumulative, & total for      "
  325. 7390  PRINT "flight.  It also prints hard copy as needed.  PC-FLY ``FLITEPLN''saves flight  "
  326. 7410  PRINT "routes in files for future use AND can be re-used with different groundspeed   "
  327. 7420  PRINT "and fuel rates added as needed."
  328. 7422  PRINT
  329. 7423  PRINT "FAA FLIGHT PLAN -- will print hard copy as needed.  The unchanging data can be "
  330. 7424  PRINT "printed without entering each time Flight Plan used."
  331. 7430  LOCATE 23,20:COLOR 12:PRINT "To continue -- press any key......":COLOR 7
  332. 7440  X$=INKEY$: IF X$="" THEN 7440
  333. 7450  GOTO 7500
  334. 7500  CLS :PRINT :LOCATE 2,38:COLOR 10:PRINT "NOTES":PRINT:COLOR 7
  335. 7510  COLOR 12:PRINT"1. DISCLAIMER:  !!!!!  USE THIS PROGRAM AT YOUR OWN RISK !!!!!  There is no    "
  336. 7520  PRINT"                guarantee as to the accuracy of data or calculations.  User's  "
  337. 7530  PRINT"                usual method of calculating flight plan data must be done to   "
  338. 7540  PRINT"                check accuracy.!!!!!!":COLOR 7
  339. 7550  PRINT
  340. 7560  PRINT "2. FILE NAMES: Use ``filename$.X '' so they will show with ``*.X '' when save  "
  341. 7570  PRINT "               and load commands required.  i.e. ``FAR-SLC.X '' (only route    "
  342. 7580  PRINT "               files will then be shown)  ":PRINT
  343. 7590  PRINT "3. WAYPOINTS:  Presently program will take 20 waypoints which could obviously  "
  344. 7600  PRINT "               be changed by re-dimensioning, however, without super long range"
  345. 7610  PRINT "               tanks, 20 should be enough.":PRINT
  346. 7620  PRINT "4. IMPROVE-    Version 2.6 includes numerous minor changes and several     "
  347. 7630  PRINT "      MENTS:   corrections that have caused run time problems.  An exit to DOS "
  348. 7650  PRINT "               has been added <9> on the main menu which appears advantageous  "
  349. 7651  PRINT "               especially when using the compiled version.                     "
  350. 7655  LOCATE 23,20:COLOR 12:PRINT "To continue -- press any key......":COLOR 7
  351. 7660  X$=INKEY$: IF X$="" THEN 7660
  352. 7661  CLS :PRINT :LOCATE 2,35:COLOR 10:PRINT "NOTES-cont.":PRINT:COLOR 7
  353. 7665  PRINT"5. REGISTERED USERS:  (contributors)"
  354. 7666  PRINT"               They will be sent copy of program that permits adding and"
  355. 7667  PRINT"               changing aircraft data.  Space is available for 15 airplanes   "
  356. 7668  PRINT"               and data.  Registered users will also be able to change FAA    "
  357. 7669  PRINT"               Flight Plan data.  Others will only be able to use the Flight  "
  358. 7670  PRINT "               Log portion of the program.  If one wishes to write one's own   "
  359. 7671  PRINT "               program to permit these changes, it obviously can be done since "
  360. 7672  PRINT "               this is an unprotected program.  I can assure you that it is    "
  361. 7673  PRINT "               less expensive to become a registered user if ones time is      "
  362. 7674  PRINT "               worth anything.  "
  363. 7675  PRINT
  364. 7676  PRINT "6. NON-REGISTERED USERS:  (non-contributors)
  365. 7677  PRINT "           a.  AIRCRAFT FLIGHT DATA - will not work properly"
  366. 7678  PRINT "           b.  FAA FLIGHT PLAN - will not permit changes."
  367. 7679  PRINT "           c.  FLIGHT LOG - and remainder of the program will function"
  368. 7685  PRINT :PRINT :PRINT " End notes"
  369. 7696  LOCATE 23,5:COLOR 12:PRINT "Return to Utilities menu -- press any key....":COLOR 7
  370. 7697  X$=INKEY$: IF X$="" THEN 7697
  371. 7698  RETURN
  372. 7700  CLS'ToEliminateFile
  373. 7705  ON ERROR GOTO 7760
  374. 7710  COLOR 2:LOCATE 3,28:PRINT "FILE ELIMINATION PROGRAM"
  375. 7720  LOCATE 5,5:COLOR 11: FILES "*.X":COLOR 7
  376. 7725  ON ERROR GOTO 7770
  377. 7730  PRINT : PRINT "     ENTER NAME OF FILE TO BE ELIMINATED ";:COLOR 3: INPUT "   ",FILENAME$:COLOR 7
  378. 7735  IF FILENAME$= "" THEN RETURN
  379. 7741  LOCATE 22,1:PRINT "                                                                             "
  380. 7742  LOCATE 23,1:PRINT "                                                "
  381. 7743  LOCATE 23,1:BEEP:INPUT "     ARE YOU SURE  (Y/N) ? [Y]",QR$
  382. 7750  IF QR$ ="Y" OR QR$ ="y" OR QR$="" THEN GOTO 7755 ELSE 7756
  383. 7755  KILL FILENAME$
  384. 7756  ON ERROR GOTO 0
  385. 7757  RETURN
  386. 7759  'ErrorHandlingRoutine
  387. 7760  CLS:PRINT :PRINT :PRINT "                  THERE ARE NO FLIGHT PLAN FILES DEFINED":COLOR 7:FOR B=1 TO 4000:NEXT:RESUME 7756
  388. 7770  LOCATE 22,1:COLOR 10:CLOSE:BEEP:PRINT "          --  Sorry, no file by that name found.  Please re-enter.  --       ":COLOR 6:RESUME 7705
  389. 7780  ON ERROR GOTO 0
  390. 7800  CLS'DirForAutoexec.bat
  391. 7810  LOCATE 3,25:COLOR 10:PRINT "DIRECTIONS FOR SELF-BOOTING DISK":COLOR 7
  392. 7814  LOCATE 5,19:COLOR 3:PRINT "COMPILED VERSION:           (128K RAM or more)":COLOR 7
  393. 7815  LOCATE 7,18:PRINT "1.  Under DOS prompt type :"
  394. 7817  LOCATE 8,18:PRINT "         A>COPY CON:AUTOEXEC.BAT   <CR>"
  395. 7820  LOCATE 9,18:PRINT "           FLITPLN?.EXE            <CR>"
  396. 7821  LOCATE 10,18:PRINT "                                   <F6> <CR>"
  397. 7827  LOCATE 12,19:COLOR 3:PRINT "BASIC INTERPRETER VERSION:  (64K RAM or more)":COLOR 7
  398. 7828  LOCATE 14,18:PRINT "1.  Format disk with /s (FORMAT B:/S)"
  399. 7830  LOCATE 15,18:PRINT "2.  Copy BASIC to your disk  (COPY BASIC.COM B:)"
  400. 7840  LOCATE 16,18:PRINT "3.  Under DOS prompt B> type :"
  401. 7845  LOCATE 17,18:PRINT "          (assuming disk in drive B:)"
  402. 7850  LOCATE 18,18:PRINT "         B>COPY CON:AUTOEXEC.BAT   <CR>"
  403. 7860  LOCATE 19,18:PRINT "           BASIC FLITPLN?.???      <CR>"
  404. 7870  LOCATE 20,18:PRINT "                                   <F6> <CR>"
  405. 7880  'LOCATE 15,18:PRINT ""
  406. 7890  LOCATE 22,24:COLOR 12:PRINT "Utilities Menu - press any key...":COLOR 7
  407. 7893  X$=INKEY$:IF X$="" THEN 7893
  408. 7895  RETURN
  409. 8000  COLOR 7,0,1:CLS ''
  410. 8020  LOCATE 4,1:COLOR 10:PRINT "                                 UTILITIES":COLOR 7
  411. 8030  LOCATE 7,18:PRINT "<1> USE TO ELIMINATE A FLIGHT ROUTE FILE"
  412. 8040  LOCATE 9,18:PRINT "<2> DOCUMENTATION"
  413. 8045  LOCATE 11,18:PRINT "<3> INSTRUCTIONS FOR MAKING SELF-BOOTING DISK"
  414. 8047  LOCATE 13,18:PRINT "<4> CREATE 2 SAMPLES ROUTE FILES TO DEMONSTRATE PROGRAM"
  415. 8048  LOCATE 14,30:PRINT "( FAR-SLC.X   &   FAR-RST.X )"
  416. 8050  LOCATE 16,18:COLOR 11:PRINT "<5>";:COLOR 7:PRINT " RETURN TO";:COLOR 11:PRINT " MAIN MENU":COLOR 7
  417. 8056  LOCATE 18,18:PRINT "<6> FAA FLIGHT PLAN - ENTER PERMANENT DATA "
  418. 8057  LOCATE 20,26:PRINT "<7> INSTRUCTION by Example"
  419. 8060  X$=INKEY$:IF X$="" THEN 8060
  420. 8070  IF X$="1" THEN GOSUB 7700
  421. 8080  IF X$="2" THEN GOSUB 7300
  422. 8085  IF X$="3" THEN GOSUB 7800
  423. 8087  IF X$="4" THEN GOSUB 8500
  424. 8088  IF X$="6" THEN GOTO 13000
  425. 8090  IF X$="5" THEN GOTO 70
  426. 8095  IF X$="7" THEN GOSUB 9500
  427. 8100  GOTO 8000
  428. 8110  RETURN
  429. 8500  OPEN "FAR-RST.X" FOR OUTPUT AS #1
  430. 8510   WRITE #1,"FAR";4;"V2";"AXN";82;"V171";"DWN";62;"V171";"FGT";61;"V82-161";"RST";57
  431. 8520  CLOSE
  432. 8522  OPEN "FAR-SLC.X" FOR OUTPUT AS #1
  433. 8523   WRITE #1,"FAR";8;"V344";"ABR";102;"V263";"PIR";98;"V26";"PHP";68;"V26";"RAP";59;"V26";"CSP";152;"V235";"RKS";151;"V4S-6";"FBR";65;"V32";"SLC";77
  434. 8524  CLOSE
  435. 8525  CLS:LOCATE 10,22:PRINT "***** FILES CREATED *****":FOR Y=1 TO 2000:NEXT
  436. 8530  RETURN
  437. 9000  'rem
  438. 9015  'ToClearPrevRte
  439. 9020  FOR N = 1 TO NN
  440. 9030   D(N)=0
  441. 9035   IF N=NN THEN 9050
  442. 9040  NEXT
  443. 9050  RT=0
  444. 9060  RETURN
  445. 9500  CLS:LOCATE 2,28:COLOR 10:PRINT "INSTRUCTION by Example":COLOR 7
  446. 9510  LOCATE 4,4:PRINT "1.  Print this page for reference, circle high-lighted words(to remember)
  447. 9520  LOCATE 5,4:PRINT "2.  Go to Main Menu, press: ";:COLOR 11:PRINT " <3>";:COLOR 7:PRINT " LOAD - prev. saved route"
  448. 9530  LOCATE 6,4:PRINT "3.  Enter at request for file:  ";:COLOR 11:PRINT "FAR-SLC.X":COLOR 7
  449. 9540  LOCATE 7,4:PRINT "4.  Enter anticipated ";:COLOR 11:PRINT "groundspeed";:COLOR 7:PRINT " &";:COLOR 11:PRINT " Gal/hr";:COLOR 7:PRINT " when requested"
  450. 9550  PRINT :PRINT "                    You are now back at the Main Menu":PRINT
  451. 9560  LOCATE 11,4:PRINT "5.  Now do Main Menu items <5>,<6>,<7> in that order:"
  452. 9570  LOCATE 12,20:COLOR 11:PRINT "<5>";:COLOR 7:PRINT " AIRCRAFT FLIGHT DATA":COLOR 7
  453. 9580  LOCATE 13,22:PRINT "-- enter aircraft desired, print hard copy #(25)"
  454. 9590  LOCATE 14,20:COLOR 11:PRINT "<6>";:COLOR 7:PRINT " FLIGHT LOG"
  455. 9600  LOCATE 15,22:PRINT "-- print the log"
  456. 9610  LOCATE 16,20:COLOR 11:PRINT "<7>";:COLOR 7:PRINT " FAA FLIGHT PLAN ":COLOR 7
  457. 9620  LOCATE 17,22:PRINT "-- print the FAA flight plan       "
  458. 9630  LOCATE 19,18:PRINT "That's all there is to it!  Adding & saving"
  459. 9640  LOCATE 20,18:PRINT "new routes is fairly self explanitory."
  460. 9650  LOCATE 23,5:COLOR 12:PRINT "Return to Utilities menu -- press any key....":COLOR 7
  461. 9660  X$=INKEY$: IF X$="" THEN 9660
  462. 9670  RETURN
  463. 10000  END
  464. 10900  AS$ = " \       \ \ \"
  465. 10901  ASS$="     \ \      | ###   | ###  |                  "
  466. 10902  AAS$="     DVFR|\   \|\        \| ### | \ \  |      |      |     "
  467. 10999  '
  468. 11000  CLS:PRINT "   -----------------------------------------------------------"
  469. 11010  PRINT "   Dept. of Transportation - Federal Aviation Admin.          "
  470. 11020  PRINT "                      FLIGHT PLAN "
  471. 11030  PRINT "   -----------------------------------------------------------"
  472. 11040  PRINT "   1)type|2)A/C|3) type/  |4)air|5)Dept|6) dept time |7)cr.alt."
  473. 11050  PRINT "      VFR| I.D.|   equip  |spd/k|    pt|-pro--|--act-|     "
  474. 11060  PRINT "      IFR| N   |          |     |      |      |      |     "
  475. 11080  PRINT USING AAS$;ACID$;ACTYPE$;GS;D$
  476. 11100  PRINT "   -----------------------------------------------------------"
  477. 11110  PRINT "   8)route of flight
  478. 11112  PRINT "   ";D$;
  479. 11115  FOR N = 1 TO NN
  480. 11120  PRINT USING AS$;AIR$(N);VOR$(N);
  481. 11125  IF N=4 OR N=8 OR N=12 OR N=16 OR N=20 OR N=24 THEN PRINT CHR$(32)
  482. 11126  IF N=4 OR N=8 OR N=12 OR N=16 OR N=20 OR N=24 THEN PRINT "      ";
  483. 11127  IF N=NN THEN 11140
  484. 11130  NEXT
  485. 11140  PRINT
  486. 11150  PRINT "   -----------------------------------------------------------"
  487. 11160  PRINT "   9)Dest.    |10)est.tim.rt |11)remarks              elt   "
  488. 11170  PRINT "              |-hrs---|-min--|                              "
  489. 11180  PRINT USING ASS$;VOR$(N);CT(N)\60;CT(N) MOD 60
  490. 11190  IF AIR$(1)<>" " AND CT(N)\60 = 0 AND CT(N) MOD 60 =0 THEN  11600
  491. 11200  PRINT "   -----------------------------------------------------------"
  492. 11210  PRINT "   12)fuel    |13)alt airpt  |14)pilot name,add,tel:  |15)No."
  493. 11220  PRINT USING "    hrs | min |              |\                      \|aboard";PILOTNAM$
  494. 11230  PRINT USING "        |     |              |\                      \|      ";PILOTADD$
  495. 11240  PRINT USING "     \ \| \ \ |              |\                      \|      ";FUELHR$;FUELMIN$;PILOTADDTEL$
  496. 11250  PRINT "   -----------------------------------------------------------"
  497. 11260  PRINT "   16)color air    |                                         "
  498. 11270  PRINT USING "     \            \| CLOSE VFR PLN WITH __________FSS ON ARV ";ACCOLOR$
  499. 11280  PRINT "   -----------------------------------------------------------"
  500. 11300  COLOR 10:INPUT "  DO YOU WANT A HARD COPY ? (Y/N) [Y]",HC$:COLOR 7
  501. 11310  IF HC$="Y" OR HC$="y" OR HC$="" THEN 11500 ELSE 70
  502. 11500  CLS:PRINT :PRINT :PRINT :INPUT "    DO YOU WANT COMPRESSED PRINTING (clip board size) (Y/N) [Y]",Z$
  503. 11501  IF Z$="Y" OR Z$="y" OR Z$="" THEN GOTO 11520 ELSE 11510
  504. 11510  LPRINT CHR$(18) CHR$(27) CHR$(50)     'normal size print
  505. 11515  GOTO 11530
  506. 11520  LPRINT CHR$(15) CHR$(27) CHR$(48)     'COMPRESSED PRINT
  507. 11530  CLS:LOCATE 10,10:PRINT "PRINTING HARD COPY..."
  508. 11540  GOTO 12000
  509. 11600  CLS:LOCATE 9,10:BEEP:PRINT "PLEASE:   -- ENTER NEW <1> or LOAD <3> and "
  510. 11605  LOCATE 10,10:PRINT "          -- RUN FLIGHT LOG - MENU <6> BEFORE RUNNING";:COLOR 11:PRINT " FAA FLIGHT PLAN":COLOR 7
  511. 11607  LOCATE 20,7:PRINT "Press any key to continue..."
  512. 11610  SSS$=INKEY$:IF SSS$="" THEN 11610 ELSE 70
  513. 12000  ON ERROR GOTO 13000:LPRINT "   -----------------------------------------------------------"
  514. 12001  LPRINT "   Dept. of Transportation - Federal Aviation Admin.          "
  515. 12002  LOCATE 23,15:PRINT "               "
  516. 12020  LPRINT "                      FLIGHT PLAN "
  517. 12030  LPRINT "   -----------------------------------------------------------"
  518. 12040  LPRINT "   1)type|2)A/C|3) type/  |4)air|5)Dept|6) dept time |7)cr.alt."
  519. 12050  LPRINT "      VFR| I.D.|   equip  |spd/k|    pt|-pro--|--act-|     "
  520. 12060  LPRINT "      IFR| N   |          |     |      |      |      |     "
  521. 12080  LPRINT USING AAS$;ACID$;ACTYPE$;GS;D$
  522. 12100  LPRINT "   -----------------------------------------------------------"
  523. 12110  LPRINT "   8)route of flight
  524. 12112  LPRINT "   ";D$;
  525. 12115  FOR N = 1 TO NN
  526. 12120  LPRINT USING AS$;AIR$(N);VOR$(N);
  527. 12125  IF N=4 OR N=8 OR N=12 OR N=16 OR N=20 OR N=24 THEN LPRINT CHR$(32)
  528. 12126  IF N=4 OR N=8 OR N=12 OR N=16 OR N=20 OR N=24 THEN LPRINT "      ";
  529. 12127  IF N=NN THEN 12140
  530. 12130  NEXT
  531. 12140  LPRINT
  532. 12150  LPRINT "   -----------------------------------------------------------"
  533. 12160  LPRINT "   9)Dest.    |10)est.tim.rt |11)remarks              elt   "
  534. 12170  LPRINT "              |-hrs---|-min--|                              "
  535. 12180  LPRINT USING ASS$;VOR$(N);CT(N)\60;CT(N) MOD 60
  536. 12200  LPRINT "   -----------------------------------------------------------"
  537. 12210  LPRINT "   12)fuel    |13)alt airpt  |14)pilot name,add,tel:  |15)No."
  538. 12220  LPRINT USING "    hrs | min |              |\                      \|aboard";PILOTNAM$
  539. 12230  LPRINT USING "        |     |              |\                      \|      ";PILOTADD$
  540. 12240  LPRINT USING "     \ \| \ \ |              |\                      \|      ";FUELHR$;FUELMIN$;PILOTADDTEL$
  541. 12250  LPRINT "   -----------------------------------------------------------"
  542. 12260  LPRINT "   16)color air    |                                         "
  543. 12270  LPRINT USING "     \            \| CLOSE VFR PLN WITH __________FSS ON ARV ";ACCOLOR$
  544. 12280  LPRINT "   -----------------------------------------------------------"
  545. 12290  LPRINT :LPRINT :LPRINT CHR$(12)
  546. 12295  ON ERROR GOTO 0
  547. 12300  GOTO 70
  548. 13000  IF ERR=25 OR ERR=24 OR ERR=27 THEN LOCATE 23,15:COLOR 23:BEEP:PRINT "CHECK PRINTER":COLOR 7:RESUME
  549. 13010  SCREEN 0,1:COLOR 10,0
  550. 13020  CLS:LOCATE 2,14:PRINT "ENTER IDENTIFICATION INFORMATION FOR FLIGHT PLAN"
  551. 13030  COLOR 7:LOCATE 4,4:PRINT "PRESENT INFORMATION IS AS FOLLOWS:"
  552. 13035  LOCATE 6,39:COLOR 0,7:PRINT "     ":COLOR 7,0
  553. 13040  LOCATE 6,7:PRINT "*)  AIRCRAFT IDENTIFICATION:  N ";:COLOR 0,7:PRINT LEFT$(ACID$,5):COLOR 7,0
  554. 13045  LOCATE 8,47:COLOR 0,7:PRINT "          ":COLOR 7,0
  555. 13050  LOCATE 8,7:PRINT "*)  AIRCRAFT TYPE / SPECIAL EQUIPMENT:  ";:COLOR 0,7:PRINT LEFT$(ACTYPE$,10):COLOR 7,0
  556. 13055  LOCATE 10,39:COLOR 0,7:PRINT "   ":COLOR 7,0
  557. 13060  LOCATE 10,7:PRINT "1)  TOTAL FUEL ON BOARD - HRS:  ";:COLOR 0,7:PRINT LEFT$(FUELHR$,3):COLOR 7,0
  558. 13065  LOCATE 11,39:COLOR 0,7:PRINT "   ":COLOR 7,0
  559. 13070  LOCATE 11,7:PRINT "2)                      - MIN:  ";:COLOR 0,7:PRINT LEFT$(FUELMIN$,3):COLOR 7,0
  560. 13075  LOCATE 13,31:COLOR 0,7:PRINT "                         ":COLOR 7,0
  561. 13080  LOCATE 13,7:PRINT "3)  PILOT'S NAME:       ";:COLOR 0,7:PRINT LEFT$(PILOTNAM$,25):COLOR 7,0
  562. 13085  LOCATE 15,31:COLOR 0,7:PRINT "                         ":COLOR 7,0
  563. 13090  LOCATE 15,7:PRINT "4)  ADDRESS:            ";:COLOR 0,7:PRINT LEFT$(PILOTADD$,25);:COLOR 7,0:PRINT "  (no commas please)"
  564. 13095  LOCATE 17,31:COLOR 0,7:PRINT "                         ":COLOR 7,0
  565. 13100  LOCATE 17,7:PRINT "5)  ADDRESS/& or/tel.:  ";:COLOR 0,7:PRINT LEFT$(PILOTADDTEL$,25):COLOR 7,0
  566. 13105  LOCATE 19,29:COLOR 0,7:PRINT "               ":COLOR 7,0
  567. 13110  LOCATE 19,7:PRINT "6)  AIRCRAFT COLORS:  ";:COLOR 0,7:PRINT LEFT$(ACCOLOR$,14):COLOR 7,0
  568. 13120  LOCATE 21,7:COLOR 2:PRINT "9)   RETURN TO MAIN MENU ":COLOR 7
  569. 13125  LOCATE 23,5:COLOR 12:PRINT "PRESS NUMBER YOU WISH TO CHANGE ...":COLOR 7,0
  570. 13130  CCHOICE$=INKEY$:IF CCHOICE$="" THEN 13130 ELSE 13160
  571. 13160  'rem for goto
  572. 13580  COLOR 14:BEEP:INPUT "  NEW ENTRIES WILL BE ON PRESENT FLT PLN.  MAKE THEM PERMANENT? (Y/N) [N]",OLD$:COLOR 7
  573. 13582  IF OLD$ = "Y" OR OLD$="y" THEN 13590 ELSE 13590
  574. 13590  GOSUB 22500
  575. 13620  GOTO 70
  576. 13650  COLOR 10,0:CLS
  577. 13655  LOCATE 2,28:PRINT "AIRCRAFT LISTING":COLOR 7:PRINT
  578. 13660  FOR T = 1 TO 15
  579. 13680    PRINT "                ";T;")  ";AIRCRAFT$(T);" ";TYPE$(T)
  580. 13690  NEXT
  581. 13720  LOCATE 19,10:COLOR 2:PRINT "        99 )  EXIT TO MAIN MENU":COLOR 7
  582. 13730  LOCATE 21,10:COLOR 12:PRINT "ENTER AIRCRAFT NO. DESIRED: ";:COLOR 2:PRINT "[99]";:COLOR 7:INPUT " ",ZX$
  583. 13731  IF ZX$="1" THEN T=1:GOTO 14000
  584. 13732  IF ZX$="2" THEN T=2:GOTO 14000
  585. 13733  IF ZX$="3" THEN T=3:GOTO 14000
  586. 13855  IF ZX$="99" THEN 13910'ToCheckIfChngesMade,Re-saves
  587. 13856  GOSUB 22500
  588. 13857  GOTO 13910
  589. 13900  '
  590. 13910  IF FLG=1 THEN 13920 ELSE 70 'main menu
  591. 13920  LOCATE 22,10:BEEP:COLOR 14:PRINT "DO YOU WANT THE AIRPLANE DATA CHANGES MADE PERMANENT? (Y/N) [N]";:COLOR 7:INPUT "",PERM$
  592. 13925  FLG=0
  593. 13930  IF PERM$="N" OR PERM$="n" OR PERM$="" THEN 70 ELSE 14750
  594. 13950  REM  14750 = to save on disk - menu
  595. 14000  SCREEN 0,1:COLOR 2,0
  596. 14005  CLS:LOCATE 1,8:COLOR 0,7:PRINT "      ":LOCATE 1,36: PRINT"                                    ":COLOR 7,0
  597. 14010  LOCATE 1,2:PRINT "(1) N ";:COLOR 0,7:PRINT AIRCRAFT$(T):LOCATE 1,20:COLOR 7,0:PRINT "(2) TYPE/EQUIP. ";:COLOR 0,7:PRINT TYPE$(T):COLOR 7,0
  598. 14020  LOCATE 3,10:COLOR 0,7:PRINT "   ":COLOR 7,0
  599. 14030  LOCATE 3,2:PRINT "(3) Vso ";:COLOR 0,7:PRINT USING "###";VSO(T):COLOR 7,0
  600. 14040  LOCATE 3,28:COLOR 0,7:PRINT "   ":COLOR 7,0
  601. 14050  LOCATE 3,20:PRINT "(4) Vsi ";:COLOR 0,7:PRINT USING "###";VSI(T):COLOR 7,0
  602. 14060  LOCATE 3,50:COLOR 0,7:PRINT "   ":COLOR 7,0
  603. 14070  LOCATE 3,42:PRINT "(5) Vno ";:COLOR 0,7:PRINT USING "###";VNO(T):COLOR 7,0
  604. 14080  LOCATE 3,68:COLOR 0,7:PRINT "   ":COLOR 7,0
  605. 14090  LOCATE 3,60:PRINT "(6) Vne ";:COLOR 0,7:PRINT USING "###";VNE(T):COLOR 7,0
  606. 14120  LOCATE 5,10:COLOR 0,7:PRINT "   ":COLOR 7,0
  607. 14130  LOCATE 5,2:PRINT "(7) Vlof";:COLOR 0,7:PRINT USING "###";VLOF(T):COLOR 7,0
  608. 14140  LOCATE 5,28:COLOR 0,7:PRINT "   ":COLOR 7,0
  609. 14150  LOCATE 5,20:PRINT "(8) Vx  ";:COLOR 0,7:PRINT USING "###";VX(T):COLOR 7,0
  610. 14160  LOCATE 5,50:COLOR 0,7:PRINT "   ":COLOR 7,0
  611. 14170  LOCATE 5,42:PRINT "(9) Vy  ";:COLOR 0,7:PRINT USING "###";VY(T):COLOR 7,0
  612. 14180  LOCATE 5,68:COLOR 0,7:PRINT "   ":COLOR 7,0
  613. 14190  LOCATE 5,59:PRINT "(10) Vlo ";:COLOR 0,7:PRINT USING "###";VLO(T):COLOR 7,0
  614. 14200  LOCATE 7,10:COLOR 0,7:PRINT "                            ":LOCATE 7,50:PRINT "                            ":COLOR 7,0
  615. 14210  LOCATE 7,1:PRINT "(11) Va  ";:COLOR 0,7:PRINT VA$(T):COLOR 7,0:LOCATE 7,41:PRINT "(14) Vapc";:COLOR 0,7:PRINT VAPC$(T):COLOR 7,0
  616. 14220  LOCATE 9,10:COLOR 0,7:PRINT "                            ":COLOR 7,0
  617. 14225  LOCATE 10,47:COLOR 0,7:PRINT "                               ":COLOR 7,0
  618. 14230  LOCATE 9,1:PRINT "(12) Vgld";:COLOR 0,7:PRINT VGLD$(T):COLOR 7,0:LOCATE 9,57:PRINT "COMMENTS":LOCATE 10,42:PRINT "(15) ";:COLOR 0,7:PRINT COMENT1$(T):COLOR 7,0
  619. 14240  LOCATE 11,10:COLOR 0,7:PRINT "                            ":LOCATE 11,47:PRINT "                               ":COLOR 7,0
  620. 14250  LOCATE 11,1:PRINT "(13) Vfe ";:COLOR 0,7:PRINT VFE$(T):COLOR 7,0:LOCATE 11,42:PRINT "(16) ";:COLOR 0,7:PRINT COMENT2$(T):COLOR 7,0
  621. 14260  COLOR 10:PRINT "-------------------------------------------------------------------------------":COLOR 7
  622. 14280  LOCATE 13,22:COLOR 0,7:PRINT "      ":COLOR 7,0
  623. 14290  LOCATE 13,7:PRINT "(17) GROSS WT. ";:COLOR 0,7:PRINT USING "######";GW(T):COLOR 7,0
  624. 14300  LOCATE 14,22:COLOR 0,7:PRINT "      ":COLOR 7,0
  625. 14310  LOCATE 14,7:PRINT "(18) EMPTY WT. ";:COLOR 0,7:PRINT USING "######";EW(T):COLOR 7,0
  626. 14315  UL(T) = GW(T)-EW(T)
  627. 14320  PRINT USING "        USEFUL LOAD: ######                  USEFUL LOAD: ######";UL(T);UL(T)
  628. 14330  LOCATE 16,13:COLOR 0,7:PRINT "   ":LOCATE 16,50:PRINT "   ":COLOR 7,0
  629. 14340  FLWT1(T) = GAL1(T)*6:FLWT2(T) = GAL2(T)*6
  630. 14350  LOCATE 16,1:PRINT"(19)   FUEL ";:COLOR 0,7:PRINT USING"###";GAL1(T);:COLOR 7,0:PRINT USING" gal  ###### lbs   (20) LESS FUEL ";FLWT1(T);:COLOR 0,7:PRINT USING"###";GAL2(T);:COLOR 7,0:PRINT USING " gal  ###### lbs";FLWT2(T)
  631. 14360  PB1(T) = UL(T)-FLWT1(T) : PB2(T) = UL(T)-FLWT2(T)
  632. 14370  PRINT "         PASS+BAGS   ";:COLOR 10:PRINT USING "######";PB1(T);:COLOR 7:PRINT "                   PASS+BAGS   ";:COLOR 10:PRINT USING "######";PB2(T):COLOR 7,0
  633. 14380  PRINT "                     ------                               ------"
  634. 14390  LOCATE 19,17:COLOR 0,7:PRINT "  ";:LOCATE 19,55:PRINT "  ":COLOR 7,0
  635. 14392  IF SE1(T) > 0 THEN PERSE1(T) = PB1(T) / SE1(T)
  636. 14394  IF SE2(T) > 0 THEN PERSE2(T) = PB2(T) / SE2(T)
  637. 14400  LOCATE 19,1:PRINT"";:PRINT USING"       ###### / ";PB1(T);:COLOR 0,7:PRINT USING"##";SE1(T);:COLOR 7,0
  638. 14404  PRINT USING" = ###### per seat         ###### / ";PERSE1(T);PB2(T);:COLOR 0,7:PRINT USING"##";SE2(T);:COLOR 7,0:PRINT USING" = ###### per seat";PERSE2(T)
  639. 14410  LOCATE 20,16:PRINT "(21)":LOCATE 20,54:PRINT "(22)"
  640. 14420  LOCATE 21,6:COLOR 0,7:PRINT "                                                                ":COLOR 7,0
  641. 14430  LOCATE 21,1:PRINT "(23) ";:COLOR 0,7:PRINT LEFT$(COMENT3$(T),72):COLOR 7,0
  642. 14440  LOCATE 22,6:COLOR 0,7:PRINT "                                                                ":COLOR 7,0
  643. 14445  ACID$=AIRCRAFT$(T)
  644. 14446  ACTYPE$=TYPE$(T)
  645. 14450  LOCATE 22,1:PRINT "(24) ";:COLOR 0,7:PRINT LEFT$(COMENT4$(T),72):COLOR 7,0
  646. 14460  COLOR 10:PRINT "     ENTER No. To Change";:COLOR 15:PRINT ":";:COLOR 7:PRINT "  (25) ";:COLOR 10:PRINT "PRINT HARD COPY";:COLOR 15:PRINT ":";:COLOR 7:PRINT "  (99) ";:COLOR 10:PRINT "PLANE MENU";:COLOR 15:INPUT ABC$:COLOR 7
  647. 14700  IF ABC$="25" THEN 15000
  648. 14701  IF ABC$="99" THEN 13650
  649. 14710  GOTO 13650
  650. 14902  GOSUB 22500
  651. 15000  'PrintPlaneData
  652. 15010  ON ERROR GOTO 4500
  653. 15012  CLS:PRINT :PRINT:PRINT :INPUT "    DO YOU WANT COMPRESSED PRINTING (clip board size) (Y/N) ? [Y]",Z$
  654. 15014  IF Z$="Y" OR Z$="y" OR Z$="" THEN GOTO 15024 ELSE 15020
  655. 15020  LPRINT CHR$(18) CHR$(27) CHR$(50)'nlSizPrnt
  656. 15022  GOTO 15026
  657. 15024  LPRINT CHR$(15) CHR$(27) CHR$(48)'CmpresPrnt
  658. 15026  ON ERROR GOTO 0
  659. 15028  CLS: LOCATE 10,12: PRINT "PRINTING HARD COPY......"
  660. 15031  PL$="    \    \ ###       \    \ ###              \    \ ###       \   \ ###"
  661. 15038  LPRINT "-------------------------------------------------------------------------------"
  662. 15040  LPRINT " N ";AIRCRAFT$(T);" ";TYPE$(T)
  663. 15050  LPRINT USING PL$;"Vso ",VSO(T),"Vsi ",VSI(T),"Vno ",VNO(T),"Vne ",VNE(T)
  664. 15060  LPRINT USING PL$;"Vlof",VLOF(T),"Vx  ",VX(T),"Vy  ",VY(T),"Vlo ",VLO(T)
  665. 15070  LPRINT USING "    \    \ \                          \     \    \ \                        \";"Va  ",VA$(T)," Vapc",VAPC$(T)
  666. 15080  LPRINT USING "    \    \  \                         \         \          \";"Vgld",VGLD$(T),"COMMENTS"
  667. 15090  LPRINT USING "    \    \  \                           \    \                            \";"Vfe ",VFE$(T),COMENT1$(T)
  668. 15100  LPRINT USING "                                             \                            \";COMENT2$(T)
  669. 15120  LPRINT USING "        GROSS WT.  ######";GW(T)
  670. 15130  LPRINT USING "        EMPTY WT.  ######";EW(T)
  671. 15140  LPRINT USING "     USEFUL LOAD.  ######                   USEFUL LOAD.  ######";UL(T),UL(T)
  672. 15150  LPRINT USING "    FUEL ### gal.  ######             LESS FUEL ### gal.  ######";GAL1(T),FLWT1(T),GAL2(T),FLWT2(T)
  673. 15160  LPRINT USING "      PASS+BAGS .  ######                    PASS+BAGS .  ######";PB1(T),PB2(T)
  674. 15170  LPRINT "                   ------                                 ------"
  675. 15175  LPRINT USING "     ###### / ## = ######                   ###### / ## = ######";PB1(T),SE1(T),PERSE1(T),PB2(T),SE2(T),PERSE2(T)
  676. 15180  LPRINT "  ";COMENT3$(T)
  677. 15190  LPRINT "  ";COMENT4$(T)
  678. 15195  LPRINT "-------------------------------------------------------------------------------"
  679. 15196  LPRINT 'CHR$(12)
  680. 15200  LPRINT CHR$(18)CHR$(27)CHR$(50)  'normal print
  681. 15210  GOTO 13650
  682. 20000  CLS:PRINT " PC-FLY ``FLITEPLN '' version 2-6  copyright D.A. Gullickson":PRINT
  683. 20005  PRINT " * FLTDATA file not found, creating FLTDATA file"
  684. 20010  OPEN "FLTDATA" FOR OUTPUT AS #1
  685. 20020   WRITE #1,"1478T","PA28-200/A","05","00","DONALD A. GULLICKSON","219 CUSTER LANDER WY82520","307 332 2815","RED/WHITE/BLUE"
  686. 20030  CLOSE
  687. 20045  PRINT " * PLANE.DAT file not found, creating PLANE.DAT file"
  688. 20050  OPEN "PLANE.DAT" FOR OUTPUT AS #2
  689. 20060   WRITE #2,"1478T",64,71,170,214,65,85,100,0,"131","","105","STALLS 0   20    40     60","","NO FLP  71  73   81  100",2650,1616,50,34
  690. 20070   WRITE #2,4,4,"","","PA28-200/A PIPER CHEROKEE ARROW"
  691. 20080   WRITE #2,"761YC",56,65,165,195,65,80,96,140,"119/3800  110/3200  98/2600","80-90 fu    70-80fd","85/3800  80/3400   75/3000","ENGINE FAILURE SPEED","",".       85 KIAS",3800,2430,89,64
  692. 20090   WRITE #2,6,6,"2-200/2-150/131=831::::2-180/2-150/171=831::::3-175/2-125/56=831","2-200/2-150/2-140=981::::::::2-180/2-150/2-125/71=981","CT210/    1978 TURBO CENTURION"
  693. 20100   WRITE #2,"CESSNA",50,56,143,179,65,54,78,0,"111/2900  100/2450   89/1950","70-80 fu   60-70 fd","70","Vx 10000 ft   62","","Vy 10000 ft   72",2960,1762,88,65
  694. 20110   WRITE #2,4,4,"","","C182/    CESSNA 182 SKYLANE"
  695. 20120   WRITE #2,"",0,0,0,0,0,0,0,0,"","","","","","",0,0,0,0
  696. 20130   WRITE #2,0,0,"","",""
  697. 20140   WRITE #2,"",0,0,0,0,0,0,0,0,"","","","","","",0,0,0,0
  698. 20150   WRITE #2,0,0,"","",""
  699. 20160   WRITE #2,"",0,0,0,0,0,0,0,0,"","","","","","",0,0,0,0
  700. 20170   WRITE #2,0,0,"","",""
  701. 20180   WRITE #2,"",0,0,0,0,0,0,0,0,"","","","","","",0,0,0,0
  702. 20190   WRITE #2,0,0,"","",""
  703. 20200   WRITE #2,"",0,0,0,0,0,0,0,0,"","","","","","",0,0,0,0
  704. 20210   WRITE #2,0,0,"","",""
  705. 20220   WRITE #2,"",0,0,0,0,0,0,0,0,"","","","","","",0,0,0,0
  706. 20230   WRITE #2,0,0,"","",""
  707. 20240   WRITE #2,"",0,0,0,0,0,0,0,0,"","","","","","",0,0,0,0
  708. 20250   WRITE #2,0,0,"","",""
  709. 20260   WRITE #2,"",0,0,0,0,0,0,0,0,"","","","","","",0,0,0,0
  710. 20270   WRITE #2,0,0,"","",""
  711. 20280   WRITE #2,"",0,0,0,0,0,0,0,0,"","","","","","",0,0,0,0
  712. 20290   WRITE #2,0,0,"","",""
  713. 20300   WRITE #2,"",0,0,0,0,0,0,0,0,"","","","","","",0,0,0,0
  714. 20310   WRITE #2,0,0,"","",""
  715. 20320   WRITE #2,"",0,0,0,0,0,0,0,0,"","","","","","",0,0,0,0
  716. 20330   WRITE #2,0,0,"","",""
  717. 20340   WRITE #2,"",0,0,0,0,0,0,0,0,"","","","","","",0,0,0,0
  718. 20350   WRITE #2,0,0,"","",""
  719. 20400  CLOSE
  720. 20405  PRINT " * Creating two sample route files ``FAR-SLC.X '' & ``FAR-RST.X ''"
  721. 20410  OPEN "FAR-RST.X" FOR OUTPUT AS #1
  722. 20420   WRITE #1,"FAR";4;"V2";"AXN";82;"V171";"DWN";62;"V171";"FGT";61;"V82-161";"RST";57
  723. 20430  CLOSE
  724. 20440  OPEN "FAR-SLC.X" FOR OUTPUT AS #1
  725. 20450   WRITE #1,"FAR";8;"V344";"ABR";102;"V263";"PIR";98;"V26";"PHP";68;"V26";"RAP";59;"V26";"CSP";152;"V235";"RKS";151;"V4S-6";"FBR";65;"V32";"SLC";77
  726. 20460  CLOSE
  727. 20500  RESUME
  728. 21999  '
  729. 22000  END'DataForCreatingNon-registDisk
  730. 22010  'DELETE 13150-13570
  731. 22020  'DELETE 13590-13610
  732. 22030  'DELETE 13740-13850
  733. 22040  'DELETE 14470-14690
  734. 22050  'DELETE 14750-14840
  735. 22055  PRINT "wow"
  736. 22060  '13582 IF OLD$ = "Y" OR OLD$="y" THEN 13590 ELSE 13590
  737. 22070  '13590 GOSUB 22500
  738. 22080  '13856 GOSUB 22500
  739. 22090  '14902 GOSUB 22500
  740. 22100  '7142 LOCATE 13,28:COLOR 13:PRINT "(Non-Registered Version)":COLOR 3
  741. 22101  '7130 LOCATE 14,17:PRINT "User-supported software.  $20 Contribution gives  "
  742. 22103  '7140 LOCATE 15,17:PRINT "user enhanced, completed version & notification of"
  743. 22105  '7145 LOCATE 16,17:PRINT "future updates & programs.  Copyright forbids "
  744. 22107  '7146 LOCATE 17,17:PRINT "distribution in an altered form.  Otherwise share."
  745. 22120  '20000 CLS:PRINT " PC-FLY ``FLITEPLN '' version 2-6  copyright D.A. Gullickson":PRINT
  746. 22500  'gosubFrNon-registVer
  747. 22510  CLS:BEEP:LOCATE 10,10:PRINT "Changes can only be made in the Registered"
  748. 22520  LOCATE 11,10:PRINT "User version - see Documentation Notes"
  749. 22530  LOCATE 20,6:PRINT "Press any key to continue..."
  750. 22540  CCC$=INKEY$:IF CCC$="" THEN 22540 ELSE RETURN
  751. 22550  'delete only if nonuser supported
  752. 22560  'DELETE 7665-7679'deletes doc mess
  753.